﻿
#Const rss_2_0 = True

Imports System.IO
Imports xmlctrl

Public Class rssbase
    Inherits xmlcontrol

    Public Sub New(ByRef buff As MemoryStream)
        MyBase.new(buff, "rss")
    End Sub

    Public Property version() As String
        Get
            Return attribute("version")
        End Get
        Set(ByVal value As String)
            attribute("version") = value
        End Set
    End Property

End Class

Public Class rss
#If rss_2_0 Then
    Inherits rss_2_0
#End If

    Public Sub New(ByRef buff As MemoryStream)
        MyBase.New(buff)
    End Sub
End Class
